Исходный код

Option Explicit
Call TestExcelFileDef()

'==============================================================================
' Проверить, существует ли в приложении тип файла FILE_EXCEL;
' если его нет - создать.

'Скрипт может выполнять только системный администратор
'==============================================================================

Sub TestExcelFileDef()
        Dim ExcelFDef, FDefs
        
        'Получить ссылку на коллекцию типов файлов приложения
        Set FDefs = ThisApplication.FileDefs
        
        'Если в системе не существует такого типа, создать его и задать значения свойств    
        If Not FDefs.Has("FILE_EXCEL") Then
                Set ExcelFDef = FDefs.Create
                With ExcelFDef     
                        .SysName = "FILE_EXCEL"
                        .Description = "Рабочая книга Excel"
                        .Extensions = "*.xls"
                        .Icon = ThisApplication.Icons(0)
                End With
        Else 
                Set ExcelFDef = FDefs.Item("FILE_EXCEL")
        End If
        
        'Вывести информацию о коллекции типов файлов
        MsgBox "В приложении определено " & FDefs.Count & " типов файлов;" & Chr(13) & _
        "тип FILE_EXCEL имеет в коллекции индекс " &  FDefs.Index(ExcelFDef) & ".", _
        vbInformation
        
End Sub 
'==============================================================================